home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sys / stat.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  854 b   |  28 lines
  1. if (!defined &_STAT) {
  2.     eval 'sub _STAT {1;}';
  3.     require 'cfuncproto.ph';
  4.     eval 'sub S_IFMT {0170000;}';
  5.     eval 'sub S_IFDIR {0040000;}';
  6.     eval 'sub S_IFCHR {0020000;}';
  7.     eval 'sub S_IFBLK {0060000;}';
  8.     eval 'sub S_IFREG {0100000;}';
  9.     eval 'sub S_IFLNK {0120000;}';
  10.     eval 'sub S_IFSOCK {0140000;}';
  11.     eval 'sub S_IFIFO {0010000;}';
  12.     eval 'sub S_IFPDEV {0150000;}';
  13.     eval 'sub S_IFRLNK {0160000;}';
  14.     eval 'sub S_ISUID {0004000;}';
  15.     eval 'sub S_ISGID {0002000;}';
  16.     eval 'sub S_ISVTX {0001000;}';
  17.     eval 'sub S_IREAD {0000400;}';
  18.     eval 'sub S_IWRITE {0000200;}';
  19.     eval 'sub S_IEXEC {0000100;}';
  20.     eval 'sub S_TYPE_UNDEFINED {0;}';
  21.     eval 'sub S_TYPE_TMP {1;}';
  22.     eval 'sub S_TYPE_SWAP {2;}';
  23.     eval 'sub S_TYPE_OBJECT {3;}';
  24.     eval 'sub S_TYPE_BINARY {4;}';
  25.     eval 'sub S_TYPE_OTHER {5;}';
  26. }
  27. 1;
  28.